home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / L-PET COMAL / (k)l1.d64 / gencbmerrors.l < prev    next >
Text File  |  2007-03-01  |  3KB  |  94 lines
  1. 0010 //
  2. 0020 PRINT "ôGENERATE COMAL ERROR MESSAGES"
  3. 0030 //
  4. 0040 PRINT 
  5. 0050 DIM MESSAGE$ OF 255
  6. 0060 OPEN FILE 2,"@0:CBMCOMALERRORS",WRITE
  7. 0070 //
  8. 0080 WHILE NOT EOD DO
  9. 0090 READ ERRNO,SEVERITY,MESSAGE$
  10. 0100 PRINT FILE 2: CHR$(ERRNO),CHR$(LEN(MESSAGE$)),CHR$(SEVERITY),MESSAGE$,
  11. 0110 ENDWHILE 
  12. 0120 CLOSE
  13. 0130 END 
  14. 0140 //
  15. 0150 // DATA FORMAT:
  16. 0160 //
  17. 0170 //   <ERROR NUMBER>,<SEVERITY>,<ERROR MESSAGE>
  18. 0180 //
  19. 0190 //   <ERROR NUMBER>    : AN INTERNAL NUMBER USED BY
  20. 0200 //                       THE INTERPRETER.
  21. 0210 //
  22. 0220 //   <SEVERITY>        : 0: NOT SEVERE ERROR.
  23. 0230 //                          THE STACK IS UNCHANGED,
  24. 0240 //                          AND YOU CAN 'CON'-TINUE.
  25. 0250 //
  26. 0260 //                       1: SEVERE ERROR.
  27. 0270 //                          THE STACK IS RESET, ALL
  28. 0280 //                          VARIABLES BECOME UNDECLARED,
  29. 0290 //                          AND YOU CANNOT 'CON'-TINUE.
  30. 0300 //
  31. 0310 //   <ERROR MESSAGE>   : THE MESSAGE WHICH IS DIPLAYED
  32. 0320 //                       IF THE ERROR OCCURS.
  33. 0330 //
  34. 0340 //
  35. 0350 // START-OF-DATA
  36. 0360 //
  37. 0370 DATA 0,0,"FORMAT ERROR"
  38. 0380 DATA 1,0,"SYNTAX ERROR"
  39. 0390 DATA 2,0,"TYPE CONFLICT"
  40. 0400 DATA 3,0,"FUNCTION ARGUMENT ERROR"
  41. 0410 DATA 4,0,"STATEMENT TOO LONG OR TOO COMPLICATED"
  42. 0420 DATA 5,1,"SYSTEM ERROR"
  43. 0430 DATA 6,0,"NAME TOO LONG"
  44. 0440 DATA 7,0,"BRACKET ERROR"
  45. 0450 DATA 8,0,"OVERFLOW"
  46. 0460 DATA 9,0,"ERROR IN STRUCTURED STATEMENT"
  47. 0470 DATA 10,0,"ERROR IN GOTO STATEMENT"
  48. 0480 DATA 11,1,"STACK OVERFLOW"
  49. 0490 DATA 12,0,"UNKNOWN VARIABLE"
  50. 0500 DATA 13,1,"PROCEDURE PARAM ERROR"
  51. 0510 DATA 14,1,"INDEX/PARAM ERROR"
  52. 0520 DATA 15,0,"SUBSTRING ERROR"
  53. 0530 DATA 16,0,"COMMAND, ARRAY, SUBSTRING, OR PROCEDURE ERROR"
  54. 0540 DATA 17,0,"INDEX ERROR"
  55. 0550 DATA 18,0,"ILLEGAL NO. OF INDICES"
  56. 0560 DATA 19,0,"STRING ASSIGNMENT ERROR"
  57. 0570 DATA 20,0,"FUNCTION ARGUMENT ERROR"
  58. 0580 DATA 21,1,"NOT IMPLEMENTED"
  59. 0590 DATA 22,0,"ZONE VALUE INCORRECT"
  60. 0600 DATA 23,0,"STEP = 0"
  61. 0610 DATA 24,1,"ARRAY REDEFINED"
  62. 0620 DATA 25,1,"DIMENSION ERROR"
  63. 0630 DATA 26,0,"CASE ERROR"
  64. 0640 DATA 27,0,"END OF DATA"
  65. 0650 DATA 28,0,"FILE ALREADY OPEN"
  66. 0660 DATA 29,0,"FILE INPUT ERROR"
  67. 0670 DATA 30,0,"END-OF-FILE"
  68. 0680 DATA 31,0,"FILE NOT OPEN"
  69. 0690 DATA 32,1,"CON NOT POSSIBLE"
  70. 0700 DATA 33,1,"ERROR IN PRINT USING"
  71. 0710 DATA 34,0,"DIVISION BY ZERO"
  72. 0720 DATA 35,1,"PROGRAM NOT PREPASSED"
  73. 0730 DATA 36,0,"FILE NOT FOUND"
  74. 0740 DATA 37,1," "
  75. 0750 DATA 38,1,"NOT INPUT FILE"
  76. 0760 DATA 39,1,"DEVICE NOT PRESENT"
  77. 0770 DATA 40,1,"NOT OUTPUT FILE"
  78. 0780 DATA 41,0,"STRING NOT DIMENSIONED"
  79. 0790 DATA 42,1,"LOCAL VARIABLE ERROR"
  80. 0800 DATA 52,0,"TOO MANY NAMES"
  81. 0810 DATA 53,1,"FUNCTION VALUE NOT RETURNED"
  82. 0820 DATA 54,0,"NOT A STATEMENT"
  83. 0830 DATA 55,0,"NOT A COMMAND OR SIMPLE STATEMENT"
  84. 0840 DATA 56,0,"',' EXPECTED"
  85. 0850 DATA 57,0,"NUMBER OUT OF RANGE"
  86. 0860 DATA 58,0,"EXPRESSION EXPECTED"
  87. 0870 DATA 59,0,"NOT IMPLEMENTED"
  88. 0880 DATA 60,0,"OPERAND EXPECTED"
  89. 0890 DATA 91,0,"USER ERROR #1"
  90. 0900 DATA 92,0,"USER ERROR #2"
  91. 0910 //
  92. 0920 // END-OF-DATA
  93. 0930 //
  94.